home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / simplified raid (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  435b  |  13 lines
  1. 8970 rem position to relative record before write
  2. 8980 rem  from shiloh's raid (c) 1987 david shiloh
  3. 8990 rem  adapted from the transactor, volume 7 issue 4
  4. 9000 if sr then r1=sr+1: r2=sr+2: r=2
  5. 9010 q=n*l: q%=q/254: q=q-q%*254: sr=-q%*(l>q)
  6. 9020 if sr then sr=-q%*(q-l-1)
  7. 9030 h%=n/256: lo=n-h%*256
  8. 9040 rem point twice and wait if needed
  9. 9050 if r then r=r-1: if q%=r1 or q%=r2 then gosub 9060: w=162
  10. 9060 print#lf,"p"chr$(sa)chr$(lo)chr$(h%)chr$(0)
  11. 9070 if w then poke w,2: wait w,32: w=0
  12. 9080 return
  13.